home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / database / blt2rx_o.zip / SCRIPTS.ZIP / 01INIT.CMD next >
OS/2 REXX Batch file  |  1996-08-05  |  3KB  |  95 lines
  1. /* 01 - Init example for Bullet/REXX */
  2. /* 3-Aug-96
  3.    Calls made in this example:
  4.    - blt_Init()
  5.    - blt_Memory()
  6.    - blt_GetErrorClass()
  7.    - blt_SetSysVars()
  8.    - blt_QuerySysVars()
  9.    - blt_Exit()
  10. */
  11.  
  12. /* Typically, each test routine's arg pack (blt_IP., etc.) is set to NOVALUE */
  13. /* so that any unset variables can easily be identified.  In actual use, */
  14. /* this would not be necessary since often arg pack values are already setup */
  15. /* for multiple calls, where blt_?P.variable is already properly set up */
  16.  
  17.  say "Example: 01init.cmd  (recommend output be redirected to a file)"
  18.  
  19.  call RxFuncAdd 'BulletLoadFuncs', 'BREXXI2', 'BulletLoadFuncs'
  20.  call BulletLoadFuncs
  21.  
  22.  /* in case Bullet/REXX is still active, close it out */
  23.  
  24.  rez = blt_Exit()
  25.  
  26.  say
  27.  say "calling blt_Init()"
  28.  blt_IP.=NOVALUE
  29.  blt_IP.JFTsize=5       /* must be 5 */
  30.  rez = blt_Init()       /* init Bullet/REXX */
  31.  say " blt_IP.func is" blt_IP.func
  32.  say " blt_IP.stat is" blt_IP.stat  /* rez same as stat except for xactions */
  33.  if rez = 0 then do
  34.  
  35.     say " blt_IP.versionDOS is" blt_IP.versionDOS
  36.     say " blt_IP.versionOS is" blt_IP.versionOS
  37.     say " blt_IP.versionBullet is" blt_IP.versionBullet
  38.     /* say " blt_IP.exitPtr is" blt_IP.exitPtr */
  39.  
  40.     say
  41.     say "calling blt_Memory()"
  42.     blt_MP.=NOVALUE
  43.     rez = blt_Memory()  /* get private arena memory avail */
  44.     say " blt_MP.func is" blt_MP.func
  45.     say " blt_MP.stat is" blt_MP.stat
  46.     say " blt_MP.memory is" blt_MP.memory
  47.  
  48.     say
  49.     say "calling blt_GetErrorClass()"
  50.     blt_XEP.=NOVALUE
  51.     blt_XEP.stat = 0    /* use any OS error code */
  52.     rez = blt_GetErrorClass()
  53.     say " blt_XEP.func is" blt_XEP.func
  54.     say " blt_XEP.stat is" blt_XEP.stat
  55.     say " blt_XEP.errClass is" blt_XEP.errClass
  56.     say " blt_XEP.action is" blt_XEP.action
  57.     say " blt_XEP.location is" blt_XEP.location
  58.  
  59.     say
  60.     say "calling blt_SetSysVars() to set lock file region timeout to 500ms"
  61.     blt_QSP.=NOVALUE
  62.     blt_QSP.item = 30   /* SET lock file region timeout */
  63.     blt_QSP.itemValue = 500  /* 500ms timeout, previous timeout on return */
  64.     rez = blt_SetSysVars()
  65.     say " blt_QSP.func is" blt_QSP.func
  66.     say " blt_QSP.stat is" blt_QSP.stat
  67.     say " blt_QSP.item is" blt_QSP.item
  68.     say " blt_QSP.itemValue previous timeout was" blt_QSP.itemValue
  69.  
  70.     say
  71.     say "calling blt_QuerySysVars() to verify change to 500ms"
  72.     blt_QSP.=NOVALUE
  73.     blt_QSP.item = 30   /* QUERY lock file region timeout (just set) */
  74.     rez = blt_QuerySysVars()
  75.     say " blt_QSP.func is" blt_QSP.func
  76.     say " blt_QSP.stat is" blt_QSP.stat
  77.     say " blt_QSP.item is" blt_QSP.item
  78.     say " blt_QSP.itemValue is" blt_QSP.itemValue
  79.  
  80.     say
  81.     say "calling blt_Exit()"
  82.     blt_EP.=NOVALUE
  83.     rez = blt_Exit()
  84.     say " blt_EP.func is" blt_EP.func
  85.     say " blt_EP.stat is" blt_EP.stat
  86.     say " blt_EP.rxAllocsLeft is" blt_EP.rxAllocsLeft
  87.  end
  88.  else do
  89.     say
  90.     say "* ERROR * blt_Init()"
  91.  end
  92.  
  93.  call BulletDropFuncs
  94.  exit 0
  95.